mouse.el [win32] (mouse-set-region):

Test for 'win32 window system as well as 'x.

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 2e50a44f676ec8e221538db08ae2415eab7089b9..98711f4e767deabb2a4ced3ec41f47b91d6e8808 100644 (file)
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -402,6 +402,7 @@ This should be bound to a mouse drag event."
     (or transient-mark-mode
        (eq (framep (selected-frame)) 'x)
        (eq (framep (selected-frame)) 'pc)
+       (eq (framep (selected-frame)) 'win32)
        (sit-for 1))
     (push-mark)
     (set-mark (point))